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by ROGER FULLER 



000 POWER ON ROUTINE TURN OFF CLOCK ZERO A THEN JUMP 

****************************************** - ' 

0008 RST 8H: (HL)-((SP)) SN ERROR IF NON ZERO 
****************************************** 

0010 RST 10H: INCREMENT HL , PASS TROUGH STRING IGNORE CR AND SPACES 

SET C IF NEXT CHARACTER NUMERIC. RESET C IF NOT. 

****************************************** 

0013 KEYBOARD ROUTINE (SEE 002B) 

************ * **************** ************* 

0018 RST 18H: HL-DE Z SET IF EQUAL. C SET IF DE>HL. 
****************************************** 

001B DISPLAY ROUTINE 

****************************************** 



0020 RST 20 



IF NTF=8 C IS RESET ELSE C SET. A=NTF-3 S AND Z 
FLAGS VALID. MAINTAINS BC , DE , HL. 



****************************************** 

0028 RST 28H BREAK VECTOR 

****************************************** 

002B SCAN KEYBOARD RETURN WITH CHAR IN A USES AF , DE 
****************************************** 

0033 DISPLAY BYTE IN A ON SCREEN 

****************************************** 

003B PRINTER DRIVER ENTRY 

004 9 SCAN KEYS WAIT FOR KEY PRESSED USES AF , DE 

****************************************** 



NOTE: SUPERMAP is designed to be transferred to a disassembled listing 
of LEVEL II BASIC. Three and five digit numbers are decimals. 



KEYBOARD LOOKUP TABLE 

0050 (ENTER) 

0051 (ENTER) SHIFT 

0052 (CLEAR) 

0053 (CLEAR) SHIFT * 

0054 (BREAK) 

0055 (BREAK) SHIFT 

0056 (UP ARROW) 

0057 (UP ARROW) SHIFT 
58 (DOWN ARROW) 

0059 (DOWN ARROW) SHIFT 
00 5A (LEFT ARROW) 

00 5B (LEFT ARROW) SHIFT 

005C (RIGHT ARROW) 

005D (RIGHT ARROW) SHIFT 

005E (SPACE) 

005F (SPACE) SHIFT 

****************************************** 

0060 DELAY LOOP BC IS COUNTER 14.65 MICROSECONDS EACH LOOP 
****************************************** 

0066 NMI RESET 



************** 



**************************** 



0075 NON DOS INITIALIZATION AREA MOVE 18F7-191C TO 4080-40A6 

008B 41E8 TO INPUT BUFFER ADDRESS POINTER (40A7) 

0091 LOAD DUMMY JUMP VECTORS IN DOS COMMANDS JUMP ADDRESSES. JUMP 

WILL BE TO L3 ERROR (012D) INSTEAD OF DOS. USED DURING LEVEL II 
INTERPRETATION OF BASIC PROGRAM. COMMAND ENTRY POINTS. 
009F PLACE RETURN COMMANDS IN DOS LINK AREA (THESE ARE USED BY LEVEL 

II MACHINE ROUTINES) 
00B2 'MEMORY SIZE' ROUTINE CLEAR SCREEN 

00B5 POINT TO 'MEMORY SIZE* MESSAGE 
00B8 DISPLAY IT 
00BB WAIT FOR USER INPUT 
00BE IF (BREAK) ASK AGAIN 
00C0 LOCATE 1ST CHAR 
00C1 IS IT ANYTHING 

00C2 IF SO SKIP MEMORY SIZE ROUTINE 
00C4 TEST FOR END OF ACTUAL MEMORY. USED WHEN (ENTER) IS GIVEN 

TO MEMORY SIZE QUESTION 
00C7 HL=MEMORY POINTER 
00CC GET A BYTE IN MEMORY 
00CD SAVE IT IN B FOR LATER 
00CE COMPLEMENT IT 

0CF PUT IT BACK WHERE YOU GOT IT 
00D0 SEE IF MEMORY WAS THERE TO RECEIVE IT 
00D1 PUT BACK ORIGINAL BYTE 
00D2 DO TIL MEMORY FAILS TEST 

II II II II II II II II II II II It II " II II II II II II I' '• II II " H " " 'I " " " 



A- 



00D6 CONVERT INPUT 

OODA SN ERROR IF NOT NUMERIC INPUT 

OODF LOAD TEST BYTE 

0E1 SAVE CURRENT MEMORY* BYTE 

00E2 PUT IN TEST BYTE 

00E3 WAS MEMORY THERE TO RECEIVE IT? t S 

00E4 RESTORE MEMORY 

00E5 GO BACK TO MEMORY SIZE ROUTINE IF USER WAS WISHFUL THINKING 

(NOTE: YOU END UP WITH LESS MEMORY AVAILABLE EVEN IF YOU 

EXCEED ACTUAL SIZE BY 1) 

00E7 POINT TO END OF MEMORY -1 

00E8 LOAD MINIMUM MEMORY SIZE 

OOEB CHECK FOR UNDER SIZE 

OOEC OM ERROR IF UNDER 174 30 THEN SINCE BC=0000 RETURN IN ERROR 

ROUTINE WILL RESULT IN A JP TO 0000 

OOEF PREPARE TO REDUCE MEMORY BY 50 

OOF 2 SAVE END OF MEMORY 

00F5 REDUCE BY 050 (CLEAR 050) 

00F6 SAVE STRING SPACE POINTER 

00F9 REVELATION 21:5 

00FC POINT TO 'RADIO SHACK...' MESSAGE 

00FF DISPLAY IT 

0102 ON TO THE FARM 

ii it ii ii it it it ii tt ii ii ti ii it n ii n ti it n it it •: it m 'i it ii It it l> n 

0105 'MEMORY SIZE' MESSAGE 

0111 'RADIO SHACK LEVEL II BASIC MESSAGE 

****************************************** 

012D L3 ERROR ENTRY POINT 

****************************************** 

0132* POINT 
0135* SET 
0138* RESET 

****************************************** 

019D* INKEY$ 

****************************************** 

01C9* CLEAR SCREEN DISPLAYS CODE FOR CLS 

****************************************** 

01D3* RANDOM USES REFRESH REGISTER 

****************************************** 



s 



01D9 MAKE A CASSETTE PULSE 

II II II II II II II II II II II II II II II II II M II II II 'I II II II ■• II II II <l II I' 

01F8 TURN CASSETTE OFF . 

01F9 BIT 2 CONTROLS MOTOR l=ON 0=OFF 

II II II II II II II II II II II II II M II It II II II II II II II II II M II II II II I' II 

0212 DEFINE DRIVE 1,0 IN A 

n ii ii h ii n n n ii n ii M ii ii it it ii n it ii it it ii ti it it ii ii n " ii ii 

021E RESET THE TAPE INPUT CIRCUIT 
0221 OUT REG A TO PORT FF 

II II II II II II II It II II M II II II H II II II H H II II •• II H II 'I M H II II H 

0234 BLINK* 

ii ii n n it n n ii n ii n n ii ii ii n ii n >i ii H ii H H ii n H it n ii ii >■ 

0235 READ A BYTE 

ii ii H it ii ii ii it M it it it ii it ii n ii ii H ii n ii H ii ii ii ii ii it ■■ ii n 

0241 READ BIT (1 OR 0) 

0243 WAIT FOR TIMING 'PIP' 

0248 DELAY 

024C RESET INPUT CIRCUIT 

0251 DELAY 

0253 LOOK FOR 'PIP' IF PRESENT THEN BIT=1. IF NOT THEN BIT=0 
ii ii H ii ii ii ti ii n ii n ii n n ii ti n ii it n ti it ii ii ii •• ti ii ii H '■ ii i 

0264 WRITE A BYTE 

0268 8 BITS TO SEND 

026A SAVE BYTE IN A 

026B SEND TIMING PIP 

026E RESTORE BYTE 

2 6F BIT TO CARRY 

0270 SAVE BYTE 

271 JUMP IF BIT IS TO BE A 

0273 SEND PIP FOR A BIT=1 

.0276 NEXT BIT 

0277 LOOP TIL DONE 

ii n n ti H n ii it n ii n ti it ii ii ii H ii n ii it ti ii ii it ii ii ii ii ii ii '■ 

027E DELAY FOR A BIT=0 

0284 TURN ON CASSETTE 

0287 WRITE LEADER AND SYNC BYTE READY 255 COUNT 

0289 BYTE TO SEND IS 00 

028A SEND BYTE 

028D LOOP TIL DONE 

2 8F SYNC BYTE 

0291 SEND IT RETURN WHEN DONE 

it ti H it it H it ii ii ti n ii n n ti ii it it ti tt n ti ii ii ii H ■■ ii H ii ii ii 

02 9 3 TURN ON CASSETTE 

029 6 FIND LEADER AND SYNC BYTE 

0297 ZERO A 

0298 GET A BIT 
029B SYNC BIT YET? 
0-9D NO LOOP TIL SO 
029F GET A * 

02A1 SEND LEFT * 
02A4 SEND RIGHT * 

****************************************** 
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2A9 GET 2 BYTES FROM TAPE 

02AC SAVE 

02AF TURN OFF CASSETTE 

02B2* SYSTEM RET IF NON DOS i 

02B5 INITIALIZE STACK IN INPUT BUFFER AREA 

2B8 RETURN TO BEGINNING OF LINE 

2BA GET * PROMPT 

02BD DISPLAY IT 

02C0 WAIT FOR INPUT 

02C3 BAIL OUT IF (BREAK) 

02C6 LOCATE FIRST CHARACTER 

2C7 SN ERROR IF DRY RUN (NO INPUT) 

02CA CHECK FOR JUMP COMMAND (/) 

2CC IF JUMP 

2CE FIND LEADER 

2D1 READ A BYTE 

2D4 SYSTEM HEADER? 

02D6 NO? LOOP BACK 

02D8 FILE NAME BLOCK LENGTH (6) 

02DA FIRST CHAR 

2DB END OF BLOCK? 

02DC YES? BLINK * 

02DE READ A BYTE 

02E1 CORRECT CHAR? 

02E2 POINT TO NEXT CHAR 

02E3 IF NOT CORRECT START OVER 

02E5 FINISH A 6 PACK 

02E7 'TWINKLE TWINKLE LITTLE *' 

2EA READ A BYTE 

02ED ENTRY POINT HEADER? 

02EF IF YES 

02F1 DATA HEADER? 

02F3 IF NOT 

2F5 READ BYTE 

02F8 SAVE # DATA BYTES 

02F9 GET LOAD ADDRESS 

02FC LOW ORDER BYTE OF ADDRESS TO INITIALIZE CHECK SUM 

2FD SAVE CHECK SUM 

02FE READ A BYTE 

301 PUT IT IN PLACE 

0302 POINT TO NEXT PLACE 

0303 RETREIVE CHECKSUM 
3 04 UPDATE IT 

0305 LOOP TIL BLOCK READ 

0307 READ CHECKSUM 

3 0A CHECK IT 

30B LOOP BACK IF OKAY 

3 0D GET A C 

3 OF DISPLAY IT 

312 LOOP BACK ANYWAY 

ii ii M ii M M it ii ii ii M n ii n n ii ii n H ii ii ii ii it ii ii ii M M it n M 

0314 GET 2 BYTES AND PUT IN HL 

3 ID JUMP ROUTINE 

32 2 CHECK FOR AN ADDRESS EVALUATE INPUT 

0329 JUMP TO IT 

****************************************** 

1 



032A OUTPUT BYTE TO TAPE, VIDEO, OR PRINTER (409C)= -1,0,1 

32B SAVE BYTE 

03 2C RET IF NON DOS 

032F GET DEVICE TYPE FLAG , 

0333 RESTORE BYTE * 

3 35 WRITE TO TAPE. 

03 38 WRITE TO PRINTER - ' 

3 3A WRITE TO VIDEO 

0342 UPDATE CURSOR POSTION (0-3F LIMIT) 
ii H n ii ii ii ii n ii M M ii n n ii it n n ii ii ii H H n ii ii n n ii ii ii n 

0348 CHECK FOR DOUBLE WIDTH. (403D)=8 FOR 32 CHAR LINE. (403D)=0 FOR 

64 CHARACTER LINE. 

0355 RESET IF CURSOR POS BEYOND END OF LINE 

****************************************** 

0361 KEYBOARD INPUT TO BUFFER INPUT ROUTINE FOR KEYBOARD 

03 6 2 RESET LAST KEY STORAGE 

0365 RESET LINE CURSOR POSITION 

036C LOAD BUFFER POINTER (NORMALLY 4 IE 8 ) 

036F BUFFER LENGTH= 240. USE INSERT TO ADD MORE. 

0371 RETURN WITH FULL BUFFER 

0375 C= INPUT LENGTH 

0376 BC=INPUT LENGTH 

03 78 HL= END OF INPUT LENGTH POINTER 

0379 TERMINATE INPUT WITH 00 FLAG 

037B RETURN POINTER TO BEGINNING OF BUFFER 

0380 BACK UP FOR RST 10 
038 1 IF (BREAK) 

****************************************** 

038 4 CALLED BY DOS EXIT 4 1AF . LOOP TIL KEY PRESSED 

038B RETURN PRINTER CARRIAGE TO BEGINNING OF NEXT LINE IF REQUIRED 

038C SELECT VIDEO OUTPUT 

038F GET PRINTER POSITION 

0392 CHECK FOR BEGINNING OF LINE 

0393 IF SO RETURN 

0394 GET CR 
0397 SEND IT 

II II II II II M II II II II II II l| II 11 H II II l| || || || || || || || II || || || It || 

039C OUTPUT TO LPRINTER 

03AD GET A TO RESET PRINT POSITION 

3A4 IF TOP OF FORM 

03A8 IF LINE FEED 

3AA GET CR 

03AD SEND IT 

03B1 GET PRINTER POSITION 

3BA GET CHAR 

****************************************** 
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03C2 DRIVER ENTRY ROUTINE 

03C9 SAVE RETURN ADDRESS 

3CD PUT CHARACTER TO DISPLAY IN C 

03CE GET DEVICE TYPE FLAG, (DE)= 1,7,6 FOR KEYBOARD, VIDEO , LPRINTER 

03CF B=l KEYBOARD B=2 VIDEO OR PRINTER 4 \ 

03D1 NON DOS PUT IN A 

3DC JUMP TO APPROPRIATE DRIVER ROUTINE , 

****************************************** 

03E3 KEYBOARD DRIVER HL=KEYBOARD BUFFER POINTER 

03E6 BC=ROW ADDRESS POINTER 

3E9 D=ROW COUNTER (0 TO 6) 

03EC SAVE IN E 

3EB GET ROW BYTE AT (BC) 

03ED KEEP AMERICA BEAUTIFUL 

03F0 GO IF KEY PRESSED 

3F2 BUMP ROW COUNTER 

03F3 BUMP KEYBOARD BUFFER POINTER 

03F4 POINT TO NEXT ROW 

03F6 GO NEXT ROW TIL ALL BUT (SHIFT) TESTED 

03F9 RETURN IF NO KEY PRESSED (A=0) 

3FA SAVE ROW BYTE 

3FB GET ROW COUNT 

3FF PUT ROW COUNT *8 IN D 

04 00 READY TESTING MASK BIT POSITION = COLUMN # 

0402 LOAD MASK 

04 03 TEST FOR KEY 

04 04 JUMP IF FOUND 

04 6 BUMP COLUMN # FOR TEST 

04 07 MOVE TEST BIT TO NEXT COLUMN 

0409 DO AGAIN 

ii ii ii ii ii it n ii ii n H ii ii ii ii H H ii it ii ii M H ii ii ii ii " ii ii ii " 

0405 GET SHIFT BIT 

04 0E SAVE IN B 

04 OF LOAD ROW BIT * 8+COLUMN # 

04 10 ADD 064 TO IT (THIS ADJUSTS FOR ASCII LETTERS) 

0412 TEST FOR NON LETTER CODE 

0414 GO IF NON LETTER (LAST 3 ROWS) 

0416 SEND SHIFT BIT TO CARRY 

0418 SKIP LOWER CASE ADJUSTMENT IF NO SHIFT 

04 1A CONVERT TO LOWER CASE 

04 1C SAVE IN D 

04 ID GET ROW 6 BITS 

04 2 TEST FOR DOWN ARROW 

04 22 GO IF NOT DOWN ARROW 

04 2 4 RETRIEVE CHAR 

04 25 ADJUST 

II II tl It tl II II II II H H 'I H It II 'I II II II I' It " " " " " " n " " " " 



04 29 TEST FOR LAST ROW 

04 2B JUMP IF LAST ROW 

042D READJUST TO ROWS 4, 5 A=ROW * 8 + COLUMNS + 016 

4 2F CHECK FOR = OR Y OR ? 

04 31 JUMP IF NOT ' •- 

0433 ADJUST ASCII 

04 35 GET SHIFT B-I-T- -- 

04 37 JUMP IF NOT SHIFT 

0439 ADJUST ASCII 

04 3B JUMP 

II II II II II II II II II II II II II II II II II II II II II M II II II II >> II II II >< II 

04 3D A=(ROW * 8 + COLUMN # - 04 8) * 2 

043E GET SHIFT BIT 

04 4 JUMP IF NOT 

04 4 2 A=COLUMN # * 2 + 1 

04 4 3 POINT TO CODE TABLE 

04 4 6 DISPLACEMENT 

04 4 9 COMPUTE POSITION IN TABLE 

044A GET ASCII CODE 

04 4 B SAVE CHARACTER 

044C LOAD DELAY COUNT 

044F DELAY 

04 5 2 RETREIVE CHARACTER 

0453 CHECK FOR (BREAK) 

04 5 5 LEAVE WITH CHAR 

0457 RETURN 

****************************************** 



LEADER 




55 




XX XX XX XX 


XX XX 


3C 




XX 




LSB 




MSB 




A A « • • 


XX 


XX 





SYSTEM TAPE FORMAT 

256 zeros followed by a A5 sync byte 

System format header byte 
6 char file name 

Data header 

Data length 00=256 bytes 

Loading 

Address 
Line . itself 
Checksum of line bytes and load address 



78 End of file marker 

LSB Entry 

MSB Address 

10 



0458 VIDEO DRIVER 

04 5B SCREEN CURSOR POSITION IN HL 

04 5E JUMP IF JUST ENTERED FROM 3DC 

ii n ii ii it it ii ii ii ii i> ii M " ii " 'i " " " " " " " " " " " " " " " 

0467 GET CHAR 

04 6A IF CONTROL CHAR i 

046F IF GRAPHIC OR SPACE COMPRESSION 

04 7 3 IF NOT A LETTER 

0479 IF UPPER CASE 

04 7B CHANGE TO UPPER CASE 

04A1 CURSOR TO BEGINNING OF LINE 

„ „ „ „ „ ii ii n ii ii ii ii ii ii ii " M ii I' ii i' ii I' n " •' '• " " " " " 

04A6 CHECK FOR SPACE COMPRESSION CODE 

04A8 IF GRAPHIC 

04AA REMOVE BIAS 

04AF GET SPACE 

04B1 SEND IT 

04B4 LOOP TIL DECOMPRESSED 

ii ii ii n ii it ii H ii ii ii ii ii H ii ii ii I' ii '■ i' ii ii " " " " " " " " " 

04B8 TURN ON CURSOR 

04BD TURN OFF CURSOR 

4 CO HOME CURSOR 

04C3 CHANGE TO 64 CHARACTER MODE 

ii ii ii ii ii n ii ii M ii ii ii H ii " " ii ii H i' " " " " " " " " " " " " 

04CE BACKSPACE AND ERASE 
04D2 CHECK FOR 64 CHARACTER 

II II II II II II II II II M M II II II H II II II II II II II •■ II " ■• " " n " " " 

04DA BACKSPACE CURSOR 

it ii ii ii ii ii ii ii ii ii ii ii ii ii ii ii ii ii " ii ii •■ " " " " " " " " " " 

04 EC TAB 

ii ii H H ii H ii ii ii H ii H ii ii ii ii ii ii it ii i' ii ■• " ii " " " " " " " 

04F6 GO DOUBLE WIDTH 

04FB SET MODE FLAG 

04FE GO DOUBLE 

ii ii ii ii ii M ii ii H n ii ii ii ii ii I' ii ii " " 'i ■■ " " " " " " " " " " 

ti ii n ii H n ii ii ii M ii ii ii ii ii ii ii ii ■■ » " " " " " " " " " " " " 

50 6 SAVE RETURN ADDRESS 

050C IF BACKSPACE 

050E IF NO FUNCTION 2,3,4,5,6,7,9 

0513 IF TURN ON CURSOR 

051D IF DOUBLE WIDTH 

521 IF SHIFT BACK ARROW 

0523 IF RIGHT ARROW 

529 IF DOWN ARROW 

52D IF UP ARROW 

0531 IF HOME CURSOR 

0535 IF BEGINNING OF LINE 

053A IF ERASE TO END OF LINE 

053C IF ERASE TO END OF FRAME 

|| II II II II II M II II II II II II I' II '• II II II H 'I II •' " " " " " " " " " 

0554 SCROLL DISPLAY POINT TO TOP OF DISPLAY 

5 57 POINT TO ROW 2 

55B 15 ROWS TO MOVE 

5 5E HUP ONE TWO HUP ONE TWO 

562 BLANK OUT ROW 16 



■ • a * « a « 



A *********************** * 



***************** 



-^v 58D PRINTER DRIVER ROUTINE 

/ 0591 TOP OF FORM WANTED? 

59 5 TOP OF FORM WANTED? 

0599 TOP OF FORM , 

059F GET LINES PER PAGE (4028) * 

05A2 SUBTRACT CURRENT LINE POSITION (4029) 

5A5 PLACE # REMAINING LINES IN B - ' 

05A6 PRINTER READY? 

5A9 WAIT TIL SO 

5AD SEND A LF 

05B0 TIL JOB IS DONE 

05B2 ZERO COUNT 

ii u ii ii n M n n ii ii it it ii M it ii ii ii ii ii ii " ii 'i » 'i » " ii " ii ii 

05B4 SEND CHARACTER OUT 

05B5 PRINTER READY? 

05B8 WAIT TIL SO 

5BB SEND CHAR 

5BE CR? 

05C0 IF NOT 

05C1 BUMP LINE COUNTER 

05C7 PAGE? 

05CB IF NOT 

05CC ZERO LINE COUNTER 

ii H ii n ii ii ii ii ii ii ii ii ii ii ii ii ii ii ii it ii ii ii •< ii ii ■• ii n H ii I' 

05D1 PRINTER HAND SHAKE. READY IF A= ( 00 11XXXX) . BIT 7=0 (NOT BUSY). 
_ BIT 6=0 (PAPER OK). BIT 5=1 (DEVICE SELECTED). 

) BIT 4=1 (NO FAULT). BITS 3,2,1,0 NOT TESTED. 

****************************************** 

05D9 INPUT ROUTINE HL POINTS TO INPUT AREA 

5DF C=BUFFER BYTES REMAINING (2 4 AT START) 

05ED RETURN WITH KEY PRESSED IN A 

060C PUT CHAR IN BUFFER 

0613 PRINT IT 

ii ii ii ii ii ii ii ii ii n it ii ii it ii ii " " ii ii 'i ii ii ii 'i ■' ii ii " ii ■• » 

0619 IF CLEAR SCREEN HIT, CLEAR BUFFER. (THIS IS WHY CLEARING SCREEN 
WITH KEYBOARD ERASES TYPED BUT UNENTERED CODE) 
ii ii ii ii it ii n ii ii ii n ii ii ii ii n n ii ii ii ii ii •• ii •• ii ii ii ii n H ■■ 

0630 BACKUP CURSOR 

ii ii H ii n ii ii M ii n ii H u ii it ti ii H H ii ii ii H ii ii ii ii ii ii ii ii •• 

641 DOUBLE WIDTH 

****************************************** 



) 



0674 INITIALIZATION MOVE 06D2-0707 TO 4000-4035 

0683 DO ABOVE 128 TIMES (BEAT A DEAD HORSE) 

0689 ZERO 4036 TO 405D . 

068B TEST FOR BREAK 

69 IF NOT BREAK * 

69 3 LOAD NEW STACK 

069 6 GET DISC STATUS 

069C IF NON DOS 

ir n n ii it ii ii ii ii it ii ii ii ii ii it ii n ti H H [I it H it ii ii ii ,t it n H 

06A1 SELECT DRIVE 

6A4 POINT TO CONTROLLER 

06AA RESTORE 

6AF TWIDDLE THUMBS 

6B2 TEST FOR READY 

6B7 ZERO SECTOR REGISTER 

06BD READ 

6C9 GO DOS LOADER 

****************************************** 

06CC ENTERED ON NMI RESET (SEE 0066) 

****************************************** 

06D2-0707 RST JUMP ADDRESSES, I/O DEVICE CONTROL BLOCK 
ft***************************************** 

070B FLOATING POINT ADDITION ARITH= (HL) + ARITH 

ii n ii n ii ii ii ii ii ii n ii ii ti ti ii ti n ii n n i, it || ii „ n it n „ „ „ 

0710 FLOATING POINT SUBTRACTION ARITH= (HL) -ARITH 

0713 FLOATING POINT SUBTRACTION ARITH=BCDE-ARITH 

0716 FLOATING POINT ADDITION ARITH=BCDE+ARITH 

07 B 2 OV ERROR ENTRY POINT 

****************************************** 

0809* LOG ARITH=LOG (ARITH) 

ii ii ii ii ii ii ii ii ii M H n it ii ii i, ti ii it ,, ,i „ „ „ „ „ „ „ „ „ „ n 

0847 FLOATING POINT MULTIPLICATION ARITH=BCDE* ARITH 

ii n ii ii ii ii ii ii ii n ii n ii ii ti ii i, ti it ti ,| ,i n ,| „ „ „ „ „ „ ,, „ 

08A2 FLOATING POINT DIVISION : ARITH=BCDE/ARITH 
ii ii ii it ii n n n it ti M ti ii H ti I, „ ,, „ I, ,, ,, ,, n „ „ „ ,, „ „ lt ,, 

09 55 CHECK ARITH FOR ZERO 

****************************************** 



13 



0977* ABS: ARITH=ABS (ARITH) . INTEGER OR SINGLE IN AND OUT. 

NTF REQUIRED AND MAINTAINED. 

0982 ARITH= -ARITH: SINGLE ONLY. MAINTAINS BC, DE 
ii ii ii n it ii ii it it ii n ii n ii it ii n ii ii ii n it n it it ii it ii ii ii ii " 

098A* SGN ACCEPT FLOATING POINT OR INTEGER. OUTPUT INTEGER IN ARITH 

II II II II II II II II II II M II II II II II II II II It It II II II M II II It H II H II ' 

0994 CHECK SIGN OF ARITH, FLOAT OR INTEGER. REQUIRES NTF. A=00 IF , 

ARITH=0. A=01 IF ARITH GREATER THAN 0. A=FF<IF ARITH LESS 

THAN 0. S AND Z FLAGS ALSO VALID 
it ii ii ti ti n ii u ii ii ii ii ii ii n n ii ii it n ti ii it n it it ti ii n n ii ii 

09A4 LOAD SINGLE ARITH TO STACK. TO RETRIEVE POP BC , POP DE . 

A,BC,HL UNALTERED. 
09B1 LOAD SINGLE 
09B4 LOAD SINGLE 
09BF LOAD SINGLE 
09C2 LOAD SINGLE 



ARITH=(HL) (HL+1) (HL+2) (HL+3) 

ARITH=BCDE. HL UNALTERED 

BCDE=ARITH. 

BCDE=(HL) (HL+1) (HL+2) (HL+3) 

09CB MOVE FROM (ARITH) TO (HL) 4 BYTES 

09CE MOVE FROM (DE) TO (HL) 4 BYTES 

ii n ii ii ii ii ii ii it n ii ii ti ti ii ii ii ii ii it ti M n it ii ii ii it ii ii it " 

09D2 MOVE FROM (HL) TO (DE) NTF BYTES 

09D3 MOVE FROM (DE) TO (HL) NTF BYTES 

09D6 MOVE FROM (DE) TO (HL) A BYTES 

09D7 MOVE FROM (DE) TO (HL) B BYTES 

****************************************** 

0A0C SINGLE COMPARE: ARITH-BCDE 

it n ti H ii ti ti ii ii ii ii it it n ii ii ii ii it n ii ti ii ii ii ii ii H ii ii ti I' 

0A39 INTEGER COMPARE: HL-DE 

ii n it ii ii H ii n ii it ii it ii ii ti ii ii ii ii ii ii ii M ii ii ii H ii H ii H H 

0A4F DOUBLE COMPARE: ARITH-ARITHEX 
0A7 8 DOUBLE COMPARE: ARITHEX-ARITH 

****************************************** 



EDITOR ASSEMBLER SOURCE TAPE FORMAT 

LEADER 256 zeros followed by an A5 sync byte 

D3 Source header 

XX XX XX XX XX XX File name 

#1 #2 #3 #4 #5 Line # in ASCII (bit 7 is set) 

20 Data header 

: XX XX Line (128 bytes maximum) 

0D End of line marker 



1A End of file marker 



<4- 



0A7F* CINT 

0A8 3 ALREADY INTEGER 

0A84 TM ERROR IF STRING 

0A8 7 IF DOUBLE CONVERT TO SINGLE 

t 

****************************************** 

.1 
0A9A RETURN TO BASIC WITH OUTPUT OF USER ROUTINE IN HL. 
0A9D FLAG IT INTEGER 

****************************************** 

0AB1* CSNG 

ii n it ii ii n ii ii ii n ii H ii ii ii ii n n ii M ii H H ii n ii ii ii n n ii ii 

OACC INTEGER ARITH TO SINGLE ARITH CONVERSION 
OACF INTEGER HL TO SINGLE ARITH CONVERSION 

****************************************** 

OADB* CDBL: ARITH (DOUBLE ) =ARITH (INTEGER OR SINGLE). REQUIRES NTF 
****************************************** 

0AF4 TEST NTF=3 (STRING) . IF STRING RETURN ELSE ERROR. 
BC,DE,HL UNALTERED. 

II II II II II II II II II II II II II II II II II II II II II l| II II M II II II II II II II 

0AF6 TM ERROR ENTRY POINT 

****************************************** 

0B26* FIX: IF FLOATING POINT TRUNCATE TO INTEGER AND RETURN FLOATING 
POINT. IF INTEGER RETURN. IF STRING ERROR. 

I! II It II H II II It M tl II 11 If M || II II It II It It II It It tl If II II II II It tl 

0B37* INT 

0B38 IF INTEGER 

0B39 IF DOUBLE 

0B3B TM ERROR IF STRING 

****************************************** 



0C70 DBL PRECISION SUBTRACTION: ARITH=ARITH-ARITHEX 
0C77 DBL PRECISION ADDITION : ARITH=ARITH+ARITHEX 

II II II II II II II II II II II I! II II II II H II II II II » 'I II " " " " " " " " 

0DA1 DBL PRECISION MULTIPLICATION: ARITH=ARITH* ARITHEX A 

ODES DBL PRECISION DIVISION : ARITH=ARITH/ARITHEX 

0E65 LOAD dOUBLE PRECISION ASCII CONSTANT TO aRITH . POINT HL TO I. -PUT 
STRING DELIMITED BY OR COMMA. AFTER LOAD HL POINTS TO 

DELIMITER 
0E6C LOAD ASCII CONSTANT TO ARITH. RETURN THE LEAST NECESSARY NUMBER 

TYPE (SEE LEVEL II MANUAL FOR RULES) POINT HL TO INPUT STRING 

DELIMITED BY OR COMMA 
0E7B IF - 
0E80 IF + 
0E84 IF NUMERIC 
0E89 IF . 
0E8E IF E 
0E92 IF % 
0E97 IF # 
0E9C IF ! 

****************************************** 

OF 4 MULTIPLY HL BY TEN 

****************************************** ** 

OFAB OUTPUT 'IN ' MESSAGE 

ii H n it ii ii H H H n it ii ii it ii ii H ii H ii ii ii H " ii " " " " " " " 

OFAF OUTPUT A LINE # 

****************************************** 

OFBD ARITH AND NTF TO ASCII CONVERSION HL POINTS TO STRING 
******************************* *********** 

13E7* SQR 
14 39* EXP 

****************************************** 

14C9* RND 

****************************************** 

1541* COS 

1547* SIN 

15A8* TAN 

ii ii ii ii ii ii ii H ii ii H ii H ii «i ii ii ii ii " " '• ii " " " " " " " " " 

15BD* ATN 

****************************************** 



& 



1608 TABLE OF ENTRY POINTS FOR LEVEL II BASIC COMMANDS 



****************** 



************************ 



16 50 RESERVED WORD LIST FOR LEVEL II COMMANDS 



ABS 


D9 


0977 


GOSUB 


91 


1EB1 


READ 


8B 


21EF< 


AND 


D2 


2 5FD 


GOTO 


8D 


1EC2 


REM 


93 


1F07 


ASC 


F6 


2A0F 


IF 


8F 


2039 


RESET 


8 2 


13 8 


ATN 


E4 


15BD 


INKEY$ 


C9 


019D 


RESTORE 


90 


1D91 


AUTO 


B7 


2008 


INP 


DB 


2AEF 


RESUME 


9F 


1FAF 


CDBL 


Fl 


0ADB 


INPUT 


89 


219A 


RETURN 


92 


1EDE 


CHR$ 


F7 


2A1F 


INSTR 


C5 


419D 


RIGHT$ 


F9 


2A91 


CINT 


EF 


0A7F 


INT 


D8 


0B37 


RND 


DE 


14C9 


CLEAR 


B8 


IE 7 A 


KILL 


AA 


4 191 


RSET 


AC 


419A 


CLOAD 


B9 


2C1F 


LEFT$ 


F8 


2A61 


RUN 


8E 


IEA3 


CLOSE 


A6 


418 5 


LEN 


F3 


2A03 


SAVE 


AD 


41A0 


CLS 


84 


01C9 


LET 


8C 


IF 21 


SET 


83 


013 5 


CMD 


85 


4173 


LINE 


9C 


41 A3 


SGN 


07 


098A 


CONT 


B3 


1DE4 


LIST 


B4 


2B2E 


SIN 


E2 


15 4 7 


COS 


El 


1541 


LLIST 


B5 


2B29 


SQR 


CD 


-X. Z) Hi ' 


CSAVE 


BA 


2BF5 


LOAD 


A7 


4188 


STEP 


CC 


2B01 


CSNG 


F0 


0AB1 


LOG 


EA 


4164 


STOP 


94 


1DA9 


CVD 


E8 


415E 


LOF 


EB 


416 7 


STR$ 


F4 


2 8 36 


CVI 


E6 


4152 


LOG 


DF 


0809 


STRING$ 


C4 


2A2F 


CVS 


E7 


4158 


LPRINT 


AF 


2067 


SYSTEM 


AE 


02B2 


DATA 


88 


IF 5 


LSET 


AB 


4197 


TAB( 


BC 


2137 


DEF 


BD 


415B 


MEM 


•C8 


27C9 


TAN 


E3 


15A8 


DEFDBL 


9B 


1E09 


MERGE 


A8 


418B 


THEN 


CA 


_ 


DEF INT 


99 


IE 3 


MID$ 


FA 


2A9A 


TIME$ 


C7 


4176 


DEFSNG 


9A 


IE 6 


MKD$ 


EE 


4170 


TO 


BD 


__ — — 


DEFSTR 


98 


IE 00 


MKI$ 


EC 


416A 


TROFF 


97 


1DF8 


DELETE 


B6 


2BC6 


MKS$ 


ED 


416D 


TRON 


96 


1DF8 


DIM 


8A 


2608 


NAME 


A9 


418E 


USING 


BF 


2CBD 


EDIT 


9D 


2E60 


NEW 


BB 


1B49 


USR 


CI 


2 7FE 


ELSE 


9 5 


IF 7 


NEXT 


87 


22B6 


VAL 


FF 


2AC5 


END 


80 


1DAE 


NOT 


CB 


25C4 


VARPTR 


CO 


24EB 


EOF 


E9 


4161 


ON 


Al 


1F6C 


+ 


CD 


249F 


ERL 


C2 


24DD 


OPEN 


A2 


4179 


- 


CE 


2532 


ERR 


C3 


2 4CF 


OR 


D3 


2 5F7 


* 


CF 


— — — - 


ERROR 


9E 


IFF 4 


OUT 


A0 


2AFB 


/ 


DO 


_ __ _ 


EXP 


E0 


1439 


PEEK 


E5 


2CAA 


I 


Dl 


— — — — 


FIELD 


A3 


417C 


POINT 


C6 


0132 


> 


D4 


— — — — 


FIX 


F2 


0B26 


POKE 


Bl 


2CB1 


= 


D5 


— — — — 


FN 


BE 


4155 


POS 


DC 


27F5 


< 


D6 


__ — — 


FOR 


81 


1CA1 


PRINT 


B2 


206F 


& 


26 


4194 


FRE 


DA 


27D4 


PUT 


A5 


4182 


1 3A 9] 


! FB 




GET 


A4 


4174 


RANDOM 


86 


01D3 









18 21 END OF TABLE MARKER 

ii H ii H ii M n ii ii ii ii ii ii ii ii n H " " " " " " " " " " " " " " " 

1822 TABLE OF JUMP ADDRESSES FOR ENTRY POINTS OF BASIC INSTRUCTIONS, 
****************************************** 



n 



191D 
1955 
1930 
197A 



IN', 'READY', 



'ERROR' , 

IQ TESTING SERVICE 

IF (409A)=2 SN ERROR 



'BREAK' STRINGS FOR BASIC MESSAGES 



199A 
199D 
19A0 
19A2 
19E6 
19E9 
19EF 
19EF 
19F0 
19F2 
19F5 
19F6 
19F7 
19FA 
19FB 
19FE 
1A0 6 
1A0D 
1A0E 
1A14 
1A17 
1A19 
1A1C 
1A1F 
1A22 
..1A25.. 
1A28 
1A2B 
1A2E 
1A30 
1A33 
1A39 
1A3D 



OM ERrSr^ENTRY PC'S" ^^ G ° T ° EDIT ^ 
' ' ' - " - .- „ -, „ „ „ „ 



1A3F 

1A4 3 

1A48 

1A4B 

1A4D 

1A4F 

1A51 

1A54 

1A58 



/0 ERROR ENTRY POINT 4 

NF ERROR ENTRY POINT 

RW ERROR ENTRY POINT 

ERROR OUTPUT ROUTINE. ERROR mnr ™ v 

RETURN TO BEGINNING OF lSe ZERO A 

POINT HL TO BOTTOM OF ERROR MESSAGE TARTP 
NON DOS RET "i^bAGE TABLE 

ZERO D 

GET A '? ' 

DISPLAY IT 

?SS l^ R C ° DE DI SPLACEMENT TO POINTER 
GET ERROR MESSAGE itK 

DISPLAY 1ST CHAR 

NUMERIC CHECK 

DISPLAY 2ND CHAR 

POINT TO 'ERROR' 

DISPLAY IT 

IF DE=(40EA) 

THEN POWER UP RESET 

DISPLAY ' IN ' LINE # 

LOAD A TAB (1) 

RETURN TO BASIC COMMAND MOni? / 1^,.,,, 
RETURN IF NON DOS ( READY ' ROUTINE) 

.TURN OFF CASSETTE 
RETURN TO BEGINNING OF LINE OR CR 7FDn * 

POINT TO 'READY' MESSAGE ' ZER ° A 

OUTPUT IT 
GET ERROR CODE 
TEST FOR SN ERROR 
CALL IF SN ERROR 
RETURN ADDRESS 
GET AUTO FLAG ( AUTO=NON ZERO) 



PRINT A 



JUMP FOR NON AUTO 



» 11 11 11 11 11 11 M H 1, ,, ,, , 



11 11 11 11 11 11 11 11 n 1, „ „ „ „ „ „ 



GET CURRENT LINE # 

OUTPUT LINE # 

SEE IF LINE # OCCUPIED 

GET A ASTERISK 

PRINT A SPACE OR AN ASTERISK 

GET A SPACE OTHERWISE 

DISPLAY CORRECT CHARACTER 

INPUT INTO BUFFER 



(CARRY SET) RE ADY T0 DISPLAY IF MAT< 



(BREAK) SETS CARRY 
" " " " " " || 11 11 " " .1 11 11 11 11 „ „ „ „ 



11 11 11 11 ti 11 11 „ ,, ,, „ 



8 



1A5A TURN OFF AUTO AND JUMP BACK 



ii M ii ii ii ii n it n H ii n 11 H n ii ii M n H n M ii M ii H 11 ii H ii 11 n 



1A6 
1A63 
1A69 
1A6C 

1A76 

1A78 

1A7B 

1A7E 

1A81 

1A84 

1A8 8 

1A8B 

1A9 9 

1A9D 

1A9E 

1AA1 

1AA4 

1AA7 

1AA8 

1AA9 

1AAA 

1AAD 

1AB1 

1ABF 

1AB5 

1AB9 

1ABF 

1AC6 

1AC7 

1AC9 

1ACD 

1AD0 

1AD3 

IAD 6 

IAD 9 

1AE1 

1AE6 

1AE9 

1AEC 

1AEF 

1AF2 

1AF5 



GET LINE INCREMENT 
ADD TO CURRENT LINE 
(BREAK) IF OVERSIZE 
(BREAK) IF LINE # > 



LINE # RESULTS 
65529X 



(LINE f IS IN DE) 



ii ii M ii n it ii ii ii ii ii ii n ii ii H ii H H ii H ii ■■ " ii " ii i' >■ " i' " 

GET PROMPT 

DISPLAY IT 

INPUT INTO BUFFER 

JUMP BACK IF BREAK 

FIND FIRST CHARACTER 

JUMP BACK IF NULL 

CHECK FOR NUMERIC THEN SCAN PAST LINE } 

SCAN 

ENCODE INPUT INTO LEVEL II TOKENS 

FLAGS DECIDE IF COMMAND MODE 

ENCODED STATEMENT POINTER 

NON DOS RET 

IF COMMAND MODE? 

SAVE LINE # 

SAVE LINE LENGTH 

ZERO 

RESET RESUME + RETURN FLAG 

SCAN 1ST TOKEN 

SAVE LINE # 

SAVE THE LINE # 

SEARCH FOR A MATCHING -LINE # C=NONE Z=FOUND 

IF NONE MAKE ROOM 

JUMP FOR MATCH 

LINE LENGTH 

HL= NEW END OF BASIC PROGRAM 

MAKE SURE BRAIN WON ' T OVERFLOW 

STORE END OF BASIC PROGRAM POINTER 

HL=LINE TO BE MOVED 

HL^LINE # POINTER 

DE=LINE # 

HL^LINE POINTER (TEXT) 

MOVE NEW LINE INTO PLACE 

LOQP TIL LINE IS MOVED 

FIX LINE POINTERS 

NON DOS RETURN 

HERE'S WHY EDITING A PROGRAM DESTROYS VARIABLES, ETC. 

NON DOS RETURN 

BACK TO THE FARM 

****************************************** 



The LEVEL II ROM does not use the alternate registers 



9 



1AFC FIX THE LINE POINTERS ROUTINE 

1B01 RETURN IF END OF OF BASIC 

1B0 2 MOVE 

IB 3 PAST A 

1B04 THE NEXT LINE POINTER AND LINE # 4 

1B06 CHECK FOR END OF LINE 

1B08 DON'T QUIT TIL YOU SUCCEED 

1B0A GET THE JOB DONE 

1B0E RERUN ROADRUNNER CARTOON 

****************************************** 

1B2C SEARCH FOR MATCHING LINE # IN BASIC. DE-DESIRED LINE #. GET 

FIRST LINE FROM (40A4) 

1B2F SAVE POINTER IN BC 

1B31 CHECK FOR END OF BASIC PROGRAM (STAY OUT OF JUNKYARDS) 

1B35 RETURN IF END 

1B36 POINT TO CURRENT LINE # 

1B3B HL=CURRENT LINE # 

1B3C MATCH? Z=YES C=HL<DE 

1B3D NEXT LINE POINTER TO HL 

IB 4 4 RETURN IF MATCH FOUND (CARRY SET) 

1B46 RETURN (NO SUCH LINE) 

1B47 TRY NEXT LINE # 

****************************************** 

1B49* NEW 

1B4A CLEAR SCREEN 

1B4D START OF BASIC PROGRAM 

1B50 TROFF 

IB 5 3 TURN OFF AUTO 

1B56 ERASE PROGRAM BY MAKING ITS LEADERS ZILCH 

1B5A RESET END OF PROGRAM POINTER 

1B64 26 VARIABLES ARE 

1B6C SET TO SINGLE PRECISION HERE 

1B6F RESET RESUME FLAG 

1B74 RESET ON ERROR STORAGE 

1B77 RESET CONT LOCATION 

1B7A GET END OF MEMORY 

1B7D 

1B8 8 RESTORE DATA POINTER 

1B8 3 GET END OF BASIC LOCATION 

1B86 RESET VARIABLES POINTER 

1B89 RESET ARRAYS POINTER 

1B9 GET START OF STRING SPACE POINTER 

1B95 SET STACK POINTER TO START OF STRING SPACE - 2 

1B9A SP-STRING SPACE POINTER 

1BA1 SELECT VIDEO FINISH PRINTING 

1BA4 TURN OFF CASSETTE 

****************************************** 

1BB3 PRINT '? ' AND INPUT FROM KEYBOARD GO ON CR 
****************************************** 



1BC0 ENCODE BUFFER INTO TOKENS 

1BC1 RESET FLAG 

1BG6 HL=INPUT BUFFER POINTER 

1BCC GET 1ST CHAR FROM BUFFER 

1BCD IF SPACE ■ 

1BD3 IF STRING 

1BD9 IF END OF LINE 

1BE3 GET BUFFER CHAR 

1BE4 CHECK FOR PRINT ABBREVIATION 

1BE6 GET PRINT TOKEN 

1BE8 SUBSTITUTE 

1BEB GET CHAR 

1BEE IF NON ALPHA NUMERIC 

1BF2 IF NUMERIC 

1BF5 SAVE INPUT POINTER-2 

1BF6 LOAD RESERVED WORD LIST POINTER-1 

1BF9 SAVE LINE LENGTH 

1BFD SAVE CONTINUATION ADDRESS 

1BFE END OF RESERVED WORD LIST TEST MASK 

1C00 GET CHAR 

ICO 3 IF NOT LOWERCASE 

ICO 7 IF NOT LOWERCASE 

1C09 CONVERT TO UPPERCASE 

1C0C SAVE CHAR 

1C0E POINT TO RESERVED WORD LIST 

1C0F CHECK FOR BEFINNING OF WORD (CHAR+80) 

1C10 TRY AGAIN IF NOT 

1C13 BUMP COUNT 

1C14 GET RESERVED WORD CHAR 

1C15 CHECK FOR END OF LIST 

1C17 CONTINUATION IF WORD NOT FOUND 

1C18 IS IT SAME AS BUFFER CHAR 

1C19 NEXT RESERVED WORD IF NOT 

1C27 IF NOT GOTO 

1C31 MAKE UPPER CASE IF NEEDED 

1C37 NEXT CHAR 

It II II M It II II li II II It H II H II II II II II II II It II II II II M II II II II U 

1C4 6 IF NOT ELSE 

1C4C IF NOT ' 

1C4E LOAD COLON 

1C50 NEXT 

1C53 LOAD REM (1 FOR THE PRICE OF 3) 

****************************************** 

1C9 RST 18 H CODE 

****************************************** 

1C9 6 RST 08 H CODE 

****************************************** 



2 



1CA1* FOR 

1CFB CHECK FOR 'STEP ' TOKEN 

1CFD DEFAULT VALUE OF 1 

1CFF IF NOT "STEP • 

1D4A * (LINE NUMBER) ' TRON USAGE 4 

ii ii n it n ii n ii ii ii ii M ii ii ii M n H •• ii n H ii •' « '> « " " " « « 

1D5A BASIC INTERPETER 

1D6 REMOVE BIAS 

1D6 2 CHECK FOR A TOKEN 

ID 6 2 JUMP IF NOT 1 

1D6A DOUBLE REMAINDER (REQUIRED FOR 2 BYTE ADDRESSES) 

1D6B SAVE OFFSET 

1D6C IN B 

1D6F POINT TO VECTORS 

1D72 LOCATE DESIRED ROUTINE ADDRESS 

1D73 LOW BYTE TO C 

ID 7 5 HIGH BYTE TO B 

1D7 6 SAVE ON STACK 

n ii ii ii ii ii ii ii it ii ii •• ii ii i' ii ii ii <> " " '■ " " " " " " " " " " 

1D78 RST 16 

****************************************** 

1D91* RESTORE 

1D9 2 GET BEGINNING OF PROGRAM 

1D96 RESTORE DATA POINTER 

****************************************** 

1D9B DISPLAY LINE NUMBER 

****************************************** 

1DA0 CHECK FOR PAUSE 

1DA2 WAIT FOR KEYSTROKE TO RESUME 

1DA5 SAVE IT 

1DA8 01= BREAK 

1DA9* STOP 

1DD4 SELECT VIDEO 

1DD7 RETURN TO BEGINNING OF LINE 

****************************************** 

1DAE* END 

****************************************** 



2Z 



IDE 4* CONT 

1DEB OUTPUT CN ERROR IF (40F7)=0 

****************************************** 

\ 

1DF7* TRON AF=TRON 

1DF8* TROFF 

****************************************** 

1E00* DEFSTR 

1E03* DEFINT 

1E06* DEFSNG 

1E09* DEFDEL 

1E0B CHECK FOR SYNTAX (LETTER NEEDED IN DEF ) 

1E0E GET ADDRESS OF SN ERROR 

1E11 SAVE ON STACK FOR POSSIBLE USE 

1E12 SN ERROR IF NO LETTER 

1E13 CONVERT ASCII LETTER TO DISPLACEMENT INTO TABLE OF 26 LETTERS 

IE 15 SAVE DISPLACEMENT IN C 

IE 16 SAVE DISLACEMENT IN B 

1E17 GET NEXT CHAR 

1E18 IS IT - 

1E1A IF NOT DON'T USE A RANGE 

1E1D CHECK FOR LETTER 

1E20 SN ERROR IF NOT 

IE 21 GET DISPLACEMENT 

1E23 PUT IN B 

1E24 GET TO NEXT CHAR 

1E25 LOAD ENDING POINT 

1E26 SUBTRACT BEGINNING POINT 

1E27 SN ERROR IF VARIABLES REVERSED 

IE 2 8 BUMP COUNT (IN CASE VARIABLES SAME) 

1E29 SAVE NEXT CHAR POINTER AND CLEAR SN ERROR VECTOR 

1E2A LOAD START OF VARIABLE DEFINITION AREA 

1E2D ZERO B 

1E2F DETERMINE ENDING POINT 

1E30 SET VARIABLE TYPE FLAG 

1E31 BUMP TABLE POINTER 

1E32 REDUCE COUNT 

1E33 LOOP TIL COUNT ZERO 

IE 3 5 RETURN NEXT CHAR POINTER 

1E3 6 GET NEXT CHAR 

1E3 7 IS IT A COMMA 

1E39 IF NOT 

1E3A GET NEXT VARIABLE 

1E3B DEF AGAIN 

II ll ll it M ii ii ii ii n ii ii ii it ii ii ii ii ii ii n n ii ii ii n ii ii ii ll || ll 

1E3D CHECK FOR LETTER IN (HL). SET C IF NOT ELSE RESET 
****************************************** 



23 



1E4F GET CHAR 

IE 5 IS IT A PERIOD 

1E53 GET PERIOD ADDRESS 

IE 57 JUMP IF PERIOD 

1E5A FOR RST 10 

1E5B INITIALIZE DE DE=LINE # ON EXIT 

1E5E LOCATE 1ST CHAR AND NUMERIC CHECK 

1E5F RETURN IF NON NUMERIC 

1E60 SAVE LOCATION 

1E61 SAVE ASCII NUMERIC DIGIT 

1E62 OVERSIZE LIMIT (65520) 

1E65 PRE-FLIGHT 

1E66 SN ERROR IF DE > 1998 

IE 6 9 HL=DE 

1E6B HL=(HL + DE) 

1E6C HL=(HL + DE) + (HL + DE) 

1E6D HL=(HL + DE + HL + DE) + DE 

1E6E HL=(HL+DE+HL+DE+DE) + (HL+DE+HL+DE+DE) = 4 *HL + 6*DE=010*DE 

1E6F RETREIVE ASCII NUMERIC DIGIT 

1E70 CONVERT ASCII CODE TO # 

1E72 SAVE S IN E 

1E73 ZERO D SO DE=# 

1E75 ADD # TO SUBTOTAL (HL) 

1E76 DE=010*DE + # 

1E77 RESTORE POINTER 

****************************************** 

1E7A* CLEAR 

1E7D COMPUTE THE AMOUNT AS AN INTEGER 

1E84 END OF MEM POINTER 

1E8D OM ERROR IF HL<DE 

1E9C LOAD STRING POINTER 

****************************************** 

1EA3* FUN 

****************************************** 

1EB1* GOSUB 

****************************************** 

1EC2* GOTO EVALUATE LINE # 
1ED9 UL ERROR ENTRY POINT 

****************************************** 
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1EDE* RETURN 

1EEC RG ERROR ENTRY POINT 
1F0 5* DATA 
1F0 7* REM 
* ELSE 

****************************************** 

1F21* LET 

*************************** ****** ********** 

1F6C* ON 

LF70* ON ERROR 

1F80 'IF UL ERROR 

1F89 GET ERROR FLAG 

1F8E GET ERROR CODE 

1F91 LOAD INTO E FOR ERROR ROUTINE 

IF 9 2 JUMP 

****************************************** 

1FAF* RESUME POINT TO ERROR FLAG 

1FB3 CHECK IT 

1FB4 RW ERROR IF ZERO 

****************************************** 

1FF4* ERROR 

200 3 UE ERROR ENTRY POINT 

****************************************** 

2008* AUTO 

200B SAVE DEFAULT VALVE OF 10 

2019 SAVE LINE # INCREMENT 

20 2 2 IF SN ERROR 

2025 CHECK FOR ZERO INCREMENT 

2028 FC ERROR IF Z 

20 2B SAVE INCREMENT 

202E SET AUTO FLAG 

2036 BACK TO THE FARM 

****************************************** 

2039* IF 

2044 IF THEN 

2060 IF NOT ELSE 

****************************************** 



?5 



2067* LPRINT SELECT LPRINTER FOR OUTPUT 

207B IF EXPRESSION ISN'T INTEGER 

207F POINT TO DISPLAY 

208 2 COMPUTE LOCATION 

208 3 SAVE IT 4 
2089 UPDATE CURSOR 

II ll II ll II II ll II It II ti II » II » II II II I' 11 I' !■ " " 'I " " " " " •' " 

206F* PRINT 

2076* PRINT @ EVALUATE EXPRESSION 

209 3* PRINT # WRITE LEADER AND SYNC BYTE 
20A5 IF PRINT USING 

20AA IF PRINT TAB ( 

20B0 IF COMMA 

2 0B 5 IF SEMI COLON 

20BE IF STRING 

20FE USED TO RETURN TO BEGINNING OF LINE AND ZERO A 

2137* TAB( 

****************************************** 

2169 OUTPUT DEVICE T, V, P -1, 0, 1 

II II II II 11 II II 11 II II II M II I' II 'I 'I » I' H 'I " I' " I' " " " •' " " " 

216D TURN OFF CASSETTE IF NEEDED 

2171 SELECT VIDEO 

it H ii it ii n ii ii ii ii it ii ii H ii it ii ii ii ii " 'I " n ii ■■ " " " " " " 

2178 'REDO ' MESSAGE STRING 

****************************************** 

219A* INPUT 

219D REDO 

21A9* INPUT # 

21AD 250 BYTES LIMIT 

21AF POINT 

21B2 READ A BYTE 

21B5 INTO THE BUFFER 

21B7 CR YET? 

21BB LOOP BACK 

21BE END OF FILE MARKER 

2 1C0 TURN OFF TAPE 

ii n ii ii ii ii ii ii ii H ii ii " ii ii ii ii <i ii " » 'i " " '• " •■ ■■ " " ■• " 

21EF* READ 

n n ii ii ii ii ii ii ii ii ii ii ii » » n ii " " " n ' " " " •• " " " " 

227C 'EXTRA. IGNORED ' STRING 

n ii it it it it it ii ii ii ii ii ii ii i' ii ii ii 'i » " " M ■■ " " " " " " " " 

22B6* NEXT 

****************************************** 



2G 



23 37 EVALUATE EXPRESSION PUT IN ARITH : POINT HL TO ADDRESS OF 
1ST CHAR. TERMINATE WITH 00 OR , OR ) OR : 

II l| II II II II II II II II M II II II II II II II M II II II II II H II M II II 11 II II 

2490 INTEGER DIVIDE. OUTPUT IN SINGLE PRECISION 

it ii n n n ii ii ii ii ii ii ii ii n n ii it ii ii ii H ii ii ii n ii M ii H H ii ii . 

4 

249F* + 

24A2 MO ERROR IF Z 

24A5 IF NUMERIC 

24A8 CHECK FOR LETTER 

24AB IF LETTER 

24B0 IF + 

24B4 IF . 

24B9 IF - 

2 4BE IF QUOTE 

24C3 IF NOT 

24C8 IF & 

ii ii H ii n ii ii ii ii ii ii it ii ii ii ii ii ii ii ii n ii H ii ii ii it ii ii ii H ii 

24CD IF NOT ERR 

24CF* ERR 

n n ii H ii ii ii ii ii ii ii ii n H n ii ii n ii ti ii ii n ii ii ii n ii ii ii ii ii 

24DB IF NOT ERL 

24DD* ERL 

ii ii n ii ii ii ii ii ii ii ii H n n ii ii ii ii ii ii ii n ii ii ii •■ ii ii ii ii H H 



24E9 IF NOT VARPTR 
24EB* VARPTR 



ii it it ii it it n it it ti tt it it ti it u ti ii ii n it ti it ti it ii it it ii ii ii ti 

2501 IF USR 

2506 IF INSTR 

250B IF MEM 

2510 IF TIME$ 

2515 IF POINT 

251A IF INKEY? 

251F IF STRING$ 

2524 IF FN 

****************************************** 

2532* - 

****************************************** 

2540 ASCII VARIBLE TO ARITH : PUT VARIABLE IN ARITH AND SET NTF. 

POINT HL TO 1ST CHAR. RETURNS WITH HL POINTING TO NEXT CHARACTER 
AFTER VARIABLE. 

****************************************** 

25D9 RST 20H 

25F7* OR 

n ti n ii ii n it ti it ti ii it it ii ii ti it ii ii ti ti ii n ti ii '• ii n H ii ii ii 

25FD* AND 

****************************************** 
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2608* DIM 

260D LOCATE OR CREATE IF NOT FOUND VARIABLES: POINT HL TO 1ST CHAR OF 

VARIABLE. RETURNS WITH DE POINTING TO VARIABLE'S ADDRESS AND HL 

POINTING TO THE NEXT CHARACTER AFTER VARIABLE. 

.2612 CHECK FOR LETTER " 4 * 

2615 SN ERROR IF C • 

2 6 IB IF NUMERIC . I 

2620 IF NOT A LETTER 

26 2 4 IF NUMERIC 

2626 CHECK FOR LETTER 

26 29 IF NUMERIC 

262E SET RETURN ADDRESS TO 2652 BEFORE GOING 

2633 IF % (INTEGER D=2) 

2637 IF $ (STRING D=3) 

263B IF ! (SINGLE D=4 ) 

2640 IF # (DOUBLE D=8) 

27 3D BS ERROR ENTRY POINT 

****************************************** 

27C9* MEM 

27CB ZERO NTF 

27CE CALL FRE ROUTINE 

****************************************** 

27D4* FRE GET FREE SPACE POINTER 

27DD IF NOT A STRING 
27E5 GET START OF STRING SPACE 
27E9 GET END OF STRING SPACE 
27F1 HL=END - START 

****************************************** 

27F5* POS GET CURSOR POSITION 

27FB RETURN VIA USR RENTRY HL IS POSITION 

****************************************** ^ 

27FE* USR 

2801 NEXT CHAR 

2806 SET REENTRY POINT 

280A GET NTF 

2810 CALL AF STRING 

2815 (408E) CONTAINS ENTRY POINT TO USR ROUTINE 

fl It II M M II II II II It II || It I) II II II It It M II It II It M If II M II 11 II II 

2831 ID ERROR ENTRY POINT 

****************************************** 
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2836* STR$ 

2866 QUOTE 

28 91 NTF = STRING 

28A1 ST ERROR ENTRY POINT 

\ 
4 
****************************************** 

I 
2 8A7 OUTPUT A MESSAGE; POINT HL TO STARTING ADDRESS OR STRING; MARK 
END WITH A 00 OR 22 OUTPUT DEVICE SELECTED BY (409C) . 
UPDATES LINE CURSOR POSITION 

****************************************** 

2A03* LEN 

****************************************** 

2A0F* ASC 

****************************************** 

2A1F* CHR$ 

****************************************** 

2A2F* STRING$ 

****************************************** 

2A61* LEFT$ 

****************************************** 
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2A91* RIGHT? 

****************************************** 

2A9A* MID$ " : '■■ 

****************************************** 

2AC5* VAL 

****************************************** 

2AEF* INP GET PORT ADDRESSES 

2AF2 LOAD IT 

2AF5 INPUT FROM CORRECT PORT 

2AF8 rETURN VIA USR CODE 

************************************* **-*** 

2AFB* OUT GET BYTE 

2AFE OUTPUT IT 

ii it ii n n ii it n M n H M ii ii ii ii it ii ii ii ii ii ii ii ii ii ii ii ii " ii ii 

2B01* STEP 

2B02 COMPUTE VALUE OF EXPRESSION 

2B06 CONVERT IT TO INTEGER 

2B0B MSB TO A 

2B0C CHECK FOR OVERFLOW 

it ii it ii ii ii ii ii n •• ii ii ii ■• ii ii ii ■■ ii ■■ ■■ ■■ ■■ ii ii ii 'i " '■ n n " 

2B0E GET PORT # 

2B11 SET PORT # FOR INPUT 

2B14 SET PORT # FOR OUTPUT 

2B17 SYNTAX CHECK 

2B1C COMPUTE VALUE 

2B1F CONVERT TO INTEGER 

2B22 FC ERROR IF OVERFLOW 

****************************************** 



Notes on the EDITOR ASSEMBLER 

4113 Top of memory pointer 

4115 Start of memory pointer 

41C3 Start of symbol table pointer 

4301 Keyboard driver entry address pointer 

4309 Video driver address 

4 311 Lpr inter driver address 

45AA Lprinter driver (patch your printer here) 

4905 Command table (have a feast) 

4925 B command (go someplace new) 
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2BC6* DELETE 

******xxxx****x*************************** 

2BF5* CSAVE WRITE LEADER AND SYNC BYTE 

2BF8 EVALUATE CHAR FOLLOWING CSAVE , 

2BFF D3= HEADER FOR BASIC TAPE 

2C04 WRITE ONCE 

2C04 WRITE TWICE 

2C0 7 SEND FILE NAME TO TAPE 

2C0B START OF PROGRAM 

2C0F END OF PROGRAM 

2C12 GET A BYTE 

2C13 POINT TO NEXT 

2C14 SEND BYTE 

2C17 DONE? 

2C18 LOOP TIL DONE 

2C1A OFF CASSETTE 



2C1F* 

2C40 

2C47 

2C49 

2C4C 

2C4E 

2C50 

2C52 

2C57 

2C59 

2C5A 

2C5C 

2C5F 

2C61 

2C64 

2C65 

2C66 

2C67 

2C69 

2C6A 

2C6D 

2C6E 

2C6F 

2C70 

2C72 

2C75 

2C77 

2C74 

2C7D 

2C80 

2C83 

2C86 

2C87 



*************************** *************** 

CLOAD 

TROFF + NEW 

3 COUNT 1 FOR HEADER 

GET A BYTE 

D3? 

IF NOT RESET COUNT AND TRY AGAIN 

LOOP TIL HEADER FOUND 

GET FILE NAME (1 BYTE) 

IF ONLY CLOAD 

IS TAPE FILE NAME CORRECT 

GO BAD IF NOT 

BEGINNING OF BASIC ID HL 

LOAD COUNT FOR 3 ZEROS WHICH DETERMINE END OF BASIC TAPE 

A BYTE 

IT FOR LATER 

AS ORIGINAL? 

LOCATION? 
BAD 
INTO MEMORY NOTE: VALIDITY IS CHECKED BEFORE PLACEMENT 



READ 

SAVE 

SAME 

SAME 

NZ MEANS 

PUT BYTE 

CHECK FOR OM ERROR 

RETRSIVE BYTE 

CHECK FOR A ZERO 

POINT TO NEXT MEMORY LOCATION 

IF NOT 1 A ZERO (END OF LINE) RESETS ZERO COUNT 

TWINKLE TWINKLE (END OF LINE) 

LOOP TIL END OF PROGRAM (3 ZEROS) 

UPDATE END OF PROGRAM POINTER 

POINT TO 'READY' MESSAGE 

DISPLAY IT 

TURN OF CASSETTE 

BEGINNING OF BASIC TO HL 

SAVE IT 

RETURN TO FARM AFTER FIXING ADDRESSES 

n n ti tt n ii n n it it " " » " » » " m " n m " n " it " n n it » it » 
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2C8A POINT TO 'BAD' MESSAGE 

2C9 3 GIVE THE NEWS 

2C9 BACK TO THE FARM 

2C93 DISPLAY FILE LETTER 

2C9 6 3 COUNT FOR END OF PROGRAM TEST 

2C98 READ BYTE 

2C9B ZERO? 

2C9C IF NOT RESET COUNT TRY AGAIN 

2C9E LOOP TIL 3 ZEROS 

2CA0 SEARCH FOR NEXT PROGRAM 

2CA3 TRY NEXT PROGRAM 

ii H n ii ii ii H n M ii ii ii n n n H it it H M H ii n ii ii n it ii it ii H ii 

2CAA* PEEK EVALUATE EXPRESSION AS INTEGER 

2CAD GET BYTE 

2CAE RETURN VIA USR CODE 

****************************************** 

2CA5 "BAD ' MESSAGE STRING 

****************************************** 

2CB1* POKE COMPUTE ADDRESS 

2CB4 SAVE IT 

2CB5 CHECK SYNTAX 

2CB6 NEXT 

2CB7 COMPUTE VALUE OF OPERAND 

2CBA RETRIEVE ADDRESS 

2CBB POKE IT IN 

****************************************** 
2CBD* USING 

ii ii ii ii ii ii ii ii ii n ii ii it ii ii n ii ii ii n it ii ii ii ii ii ii ii ii n u ii 

2E4 9 PRINT A PLUS IF D NON ZERO 

****************************************** 
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2E60* EDIT GET LINE 

2E64 DE=LINE # 

2E66 PUT LINE # IN STORAGE 

2E6A SEARCH FOR MATCHING LINE # 

2E6D UL ERROR IF NOT FOUND (NC) 

2E70 ADDRESS OF LINE TO HL 

2E72 POINT TO LINE # 

2E74 PUT LINES IN BC 

2E78 SAVE LINE # ON STACK 

2E79 CONVERT LINE TO ASCII 

2E7E OUTPUT LINE # 

2E81 OUTPUT BLANK 

2E8 6 POINT TO BUFFER 

2E89 SEND CURSOR 

2E8E SAVE BUFFER POINTER 

2E91 C=LENGTH OF LINE 

2E9 5 SEARCH FOR END OF LINE 

2E9 8 ZERO A 

2E99 ZERO D 

2E9B GET A KEY 

II II II II II II II II II II II II II n II n II II II II II || II || II II H II II || || u 

2EBB (BACK SPACE) 

2EC0 (ENTER)? 

2EC7 (SPACE)? 

2EC9 UPPER CASE? 

2ECB CHANGE TO LOWERCASE 

2ECF Q UIT? 

2ED4 L 1ST LINE? 

2ED9 S EARCH? 

2EDD I NSERT? 

2EE2 D ELETE? 

2EE7 C HANGE? 

2EEC E ND? 

2EF1 X TRA? 

2EF6 K ILL? 

2EFA H ACK? 

2EFF A GAIN? 

2F01 NOT VALID CHARACTER IF NZ GET ANOTHER 

2F07 START OVER 

n ii ii ii ii ii it ii ii n ii ii u ii ii n ii ii ii ii M ii „ || || u „ „ „ „ „ ,, 

BASIC RAM STORAGE FORMAT 

LSB Address of 

MSB next line 

LSB Line # in 

MSB binary form 

XX ... XX Line 

00 End of line marker 



00 00 End of file marker 
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2F0A SPACE ROUTINE 

ii ii H ii H it M it ii n M ii it ii ii n M ii M ii M ii n M ii M ii M it ii ii ii 

2F16 KILL ROUTINE 

2F1C SEARCH ROUTINE 

2F1D GET THE CHARACTER 

ii ii ii u 11 11 ii ii ii ii n ii 11 it ii it ii H ii ii ii 11 ii ii 'i ii " •■ " " " " 

2F40 OUTPUT AREA POINTED BY HL 
ii M ii H ii it ii ii n ii n ii ii M ii ii ii ii ii H ii ii ii >• •• ii ii " " " " ii 

2F4A DELETE ROUTINE 

2F4D PRINT ' ! ' 

2F5F PRINT ' ! ' 

it H ii ii ii ii ii ii ii ii n ii ii <• ii ii ii ii ii ii ii ■■ ■■ ii ii ■• " '< '■ ■' " " 

2F65 CHANGE ROUTINE 

2F6 8 GET CHARACTER 

2F6C PRINT IT 

2F71 REDUCE COUNT 

2F7 2 LOOP TIL DONE 

ii ii it n ii ii ii it ii ii ii H ii ii ■' ii ii ii ii ii " ii " ii " " " " " " " " 

2F75 HACK ROUTINE 

2F7 8 XTRA ROUTINE 

2F7D INSERT ROUTINE 

2F84 BACK SPACE 

2F88 CR? 

2F8D ESCAPE? 

11 II II 11 11 11 II 11 II 11 II II " II II II II " II " " II " II " ■' " " " " " " 

2FE0 LEAVE EDIT MODE AFTER DISPLAYING LINE 
it n it ii ii ii ii ■■ ii ii ii •• ■< ii ■• ii ■■ ■■ ii H n ii ■■ n ■■ ii " n " " " " 

2FF6 QUIT ROUTINE 

****************************************** 



BASIC TAPE FORMAT 



LEADER 




256 zeros followed 


D3 D3 D3 
XX 




BASIC header 
File name 


LSB 
MSB 
LSB 
MSB 

A A • 6 

00 


XX 


Next line's address 

Pointer 
Line 

'# 
Line 
End of line marker 



00 00 End of file markers 
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3000-3 7DD RESERVED THERE IS NOTHING HERE NO MEMORY AT ALL 

37DE DOS COMMUNICATION STATUS ADDRESS 

3 7DF DOS COMMUNICATION DATA ADDRESS 

37E0 INTERRUPT LATCH ADDRESS 

37E1 DISC DRIVE SELECT LATCH ADDRESS 4 

37E2 CASSETTE DRIVE LATCH ADDRESS 

37E8 LPRINTER PORT ADDRESS 

37EC FLOPPY DISC CONTROLLER ADDRESS 

KEYBOARD MEMORY 

COL #=01234567 

38 01 ROW gABCDEFG. 



3802 ROW 1 



H 



K 



M 



N 



O 



38 04 ROW 2 P Q 
38 08 ROW J X Y 
3810 ROW 4 ! 



R 
Z 

I! 

2 



U 



$ 
4 



V 



S 
6 



W 



■ 

7 



38 2 ROW 5 



) 
9 



+ 



/ 



38 4 ROW 6 
38 80 ROW 7 



ENT CLS BRK t 
SHIFT 



SPS 



****************************************** 



3C00-3FFF VIDEO MEMORY 



****************************************** 



3& 



4000 RST 8 

4003 RST 10 

4006 RST 24 

40OC RST 32 

400C RST 40 \ 

4 OOF RST 4 8 * • 

4012 RST 56 

. KEYBOARD CONTROL BLOCK 

4015 DEVICE TYPE 

4016 DRIVER ADDRESS (INTERCEPT HERE FOR DEBOUNCE) 

4018 

4019 
4 01A 

4 IB ' K ' 

401C 'I ' 

VIDEO CONTROL BLOCK 

401D DEVICE TYPE 

40 IE DRIVER ADDRESS 

4020 CURSOR POSITION IN MEMORY (2 BYTES) 
40 22 CURSOR CHARACTER 

4023 'D ■ 

4024 'O * 

LPRINTER CONTROL BLOCK 

4025 DEVICE TYPE 

4026 DRIVER ADDRESS 

4028 # LINES PER PAGE KEPT HERE 

4029 CURRENT LINE # PRINTER IS ON 
402A 

402B 'P ' 

402C "R ' 

4036-4 03C 7 BYTE WORK AREA FOR KEYBOARD ROUTINE 

4 03D PRINT SIZE FLAG 0=64 CHAR 8=32 CHAR ALSO USED IN TAPE 
OUTPUT TO PREVENT RESETING SIZE DURING AN OUT 255 
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TIME$ STORAGE AREA 

4040 25 MS TICKS 

4041 SECONDS 

4042 MINUTES 

404 3 HOURS 4 t 

404 4 YEAR. 

4 04 5 DAY - , 

4 04 6 MONTH 

4 08E ENTRY POINTER TO USR ROUTINES 

4093 INP ROUTINE 

4 09 4 PORT # 

4096 OUT 

4097 PORT # 

4099 INKEY$ STORAGE 

409A ERROR CODE STORAGE FOR RESUME USE 

4 09B PRINTER CARRIAGE POSITION 

409C DEVICE TYPE FLAG -1=TATE 0=VIDEO 1=LPRINTER 

409D PRINTS USE 

40A0 START OF STRING SPACE POINTER 

40A2 CURRENT LINE BEING PROCESSED 

4 0A4 START OF BASIC PROGRAM POINTER 

40A6 LINE CURSOR POS USED FOR TAB 

40A7 INPUT BUFFER POINTER 

40AA LSB OF SEED FOR RND 

4 0AB LSB OF SEED FOR RND ALSO USED IN RANDOM 

40AC MSB OF SEED FOR RND _.....„ 

40AF NTF (NUMBER TYPE FLAG) 2=INTEGER 3=STRING 4=SINGL£ 8=DOUBLE 

40B1 TOP OF BASIC MEMORY POINTER 

40B3 STRING WORK AREA POINTER __ 

40B5 — STRING WORK AREA . » c >tV/.// ^77//l fit, C Pci^Jl^- 

40D6 ^iEMORY--a-i^E_^K,\A7)r IfJ&k b ^ a 6c "^ 6rfjMu 3T { 

40DC DIM USE 

40DE PRINT USING 

4 0DF ENTRY POINT 1 STORAGE FOR SYSTEM TAPES 

40E1 AUTO FLAG 0=NOT AUTO ELSE AUTO _ 

40E2 CURRENT LINE # 

40E4 AUTO INCREMENT SIZE 

40E6 ENCODED STATEMENT POINTER 

40E8 STACK POINTER POINTER 

40EA USED DURING RESUME 

40EC EDIT LINE # 

40EE USED DURING RESUME 

40F5 LAST LINE # EXECUTED 

40F7 USED TO CONT 

40F9 SIMPLE VARIABLES POINTER 

40FB ARRAYS POINTER 

40FD FREE SPACE 

40FF DATA POINTER 

VARIABLE TYPE DECLARATION TABLE 

4 101-4 11B 2=INTEGER 4=SINGLE 8-DOUBLE 3=STRING 

411B TRON FLAG 0=TROFF 
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INTGER SINGLE 


DOUBLE 




4 1 ID 




LSB 




4 HE 




LSB 




411F 




LSB 




4120 




LSB 


i 


4121 


LSB LSB 


LSB 




4122 


MSB LSB 


LSB 




4123 


MSB 


MSB 




4124 


EXP 


EXP 












4127 


LSB LSB 


LSB 




4128 


MSB LSB 


LSB 




4129 


MSB MSB 


LSB 




412A 


EXP 


LSB 




412B 


' 


LSB 




4 12C 




LSB 




412D 




MSB 




4 12E 




EXP 




4130 


LINE # WORK AREA 


POINTER 






nnS FNTRY pnTNTc; 




4152 


CVI 


" 




4155 


FN 






4158 


CVS 






415B 


DEF 






415E 


CVD 






4161 


EOF 






4164 


LOC 






4167 


LOF 






416A 


MKI$ 






416D 


MKS$ 






4170 


MKD$ 






4173 


CMD 






4176 


TIME$ 






4179 


OPEN 






4 17C 


FIELD 






417F 


GET 






4182 


PUT 






4185 


CLOSE 






4 18 8 


LOAD 






418B 


MERGE 






418E 


NAME 






4191 


KILL 






4194 


& 






4197 


LSET 






4 19A 


RSET 






4 19D 


INSTR 






41A0 


SAVE 






4 1A3 


LINE 












41E8- 


■42E8 NOTE STACK 


POINTER IS 4288 


FOR SYSTEM 


42E9 


BASICALLY ONLY THE BEGINNING! 
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